home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2_w.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
924b
|
37 lines
/********** 指定時刻まで待って通信する v1.04a用 **********/
%WaitTime{
var ReqHM[10];
var WaitSec[6];
loop({
ReqHM:=@input( {何時何分に起動しますか?.\n}|
{ 4桁の数字(hhmm)で返答してください.}|
{(hh=00~23,mm=00~59)},,WTIME);
case(@nochar(ReqHM)=4 || ReqHM={},{Yes},{
im({No});
},,{footnote({ 4桁の数字(hhmm)で入力してください});
im({Yes})
});
});
footnote({});
case(ReqHM={},{Yes},{
},{No}, {
%ReqHH @getchar(ReqHM,1,2);
%ReqMM @getchar(ReqHM,3,2);
%NowTime @daylong;
%NowHH @getchar(NowTime,16,2);
%NowMM @getchar(NowTime,19,2);
%NowSS @getchar(NowTime,22,2);
WaitSec:=((ReqHH*60+ReqMM)*60)
-((NowHH*60+NowMM)*60+NowSS);
case(ReqHH<NowHH,{Yes},{WaitSec:=WaitSec+24*60*60});
select({ }|ReqHH|{:}|ReqMM|{ に自動通信を行います},
WaitSec, {COND:={Yes};
},{ 中 止 }, {COND:={No};
});
});
};
WaitTime;